home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / os2 / adaptor.zip / ADAPT.ZIP / adaptor / src / include / global.ori < prev    next >
Text File  |  1993-11-17  |  7KB  |  186 lines
  1. /*************************************************************************
  2. *                                                                        *
  3. *  Name : global.h                                                       *
  4. *                                                                        *
  5. *  Purpose : declaration of global data for ADAPTOR translation          *
  6. *                                                                        *
  7. *  Author : Dr. Thomas Brandes, GMD, I1.HR                               *
  8. *                                                                        *
  9. *  Last Update : April 1993                                              *
  10. *                                                                        *
  11. **************************************************************************
  12.  
  13.           /*************************************************
  14.           *                                                *
  15.           *  TARGET MACHINE                                *
  16.           *                                                *
  17.           *************************************************/
  18.  
  19. extern int no_machine;            /* number of entries of machine_items */
  20. extern char *machine_items [];
  21. extern int target_machine;        /* value of target_machine */
  22.  
  23. /* possible values for target_machine */
  24.  
  25. #define IPSC_860     0
  26. #define CM5          1
  27. #define PARSYTEC_GC  2
  28. #define MEIKO_CS1    3
  29. #define MEIKO_CS2    4
  30. #define SUPRENUM     5
  31. #define ALLIANT      6
  32. #define SGI          7
  33. #define KSR1         8
  34. #define SUN4_PVM     9
  35. #define RIOS_PVM    10
  36. #define ALL_PVM     11
  37. #define KSR1_PVM    12
  38.  
  39.           /*************************************************
  40.           *                                                *
  41.           *  TARGET LANGUAGE                               *
  42.           *                                                *
  43.           *************************************************/
  44.  
  45. extern int no_language;
  46. extern char *language_items [];
  47. extern int target_language;
  48.  
  49. /* possible values for target_language */
  50.  
  51. #define FORTRAN_77 0
  52. #define FORTRAN_90 1
  53.  
  54.           /*************************************************
  55.           *                                                *
  56.           *  TARGET MODEL                                  *
  57.           *                                                *
  58.           *************************************************/
  59.  
  60. extern int no_model;
  61. extern char *model_items [];
  62. extern int target_model;
  63.  
  64. /* possible values for target_model */
  65.  
  66. #define HOST_NODE  0
  67. #define ONLY_NODE  1
  68. #define UNI_PROC   2
  69.  
  70.           /*************************************************
  71.           *                                                *
  72.           *  ARRAY  KIND                                   *
  73.           *                                                *
  74.           *************************************************/
  75.  
  76. extern int no_array;
  77. extern char *array_items [];
  78. extern int array_kind;
  79.  
  80. /* possible values for array_kind */
  81.  
  82. #define DYNAMIC_ARRAYS  0
  83. #define STATIC_ARRAYS   1
  84.  
  85.           /*************************************************
  86.           *                                                *
  87.           *  DEFAULT DISTRIBUTION                          *
  88.           *                                                *
  89.           *************************************************/
  90.  
  91. extern int no_ddefault;
  92. extern char *ddefault_items [];
  93. extern int ddefault_kind;
  94.  
  95. /* possible values for ddefault_kind */
  96.  
  97. #define DDEFAULT_REPLICATED    0
  98. #define DDEFAULT_DISTRIBUTED   1
  99. #define DDEFAULT_CM            2
  100.  
  101.           /*************************************************
  102.           *                                                *
  103.           *  SPLIT OPTION (flag)                           *
  104.           *                                                *
  105.           *************************************************/
  106.  
  107. /* Split options */
  108.  
  109. extern char * split_items [];
  110. extern int  no_split;
  111. extern int split_flag;          /* value for splitting */
  112.  
  113.           /*************************************************
  114.           *                                                *
  115.           *  MINIMAL NUMBER OF PROCESSORS                  *
  116.           *                                                *
  117.           *    MinProc : integer value                     *
  118.           *                                                *
  119.           *   (needed to compute static array sizes)       *
  120.           *                                                *
  121.           *************************************************/
  122.  
  123. extern char * minproc_items [];
  124. extern int  no_minproc;
  125. extern int MinProc;
  126.  
  127. /* machine parameters for SUN4 PVM */
  128.  
  129. #define SUN4_PVM_OPTIONS "-O -w"
  130. #define RIOS_PVM_OPTIONS "-O -w"
  131.  
  132.           /*************************************************
  133.           *                                                *
  134.           *  PREDEFINED VALUES for VARIABLES               *
  135.           *                                                *
  136.           *    (machine-, installation-dependent)          *
  137.           *                                                *
  138.           *************************************************/
  139.  
  140. #define predefined_target_machine  SUN4_PVM
  141. #define predefined_target_language FORTRAN_77
  142. #define predefined_target_model    HOST_NODE
  143. #define predefined_array_kind      STATIC_ARRAYS
  144. #define predefined_ddefault_kind   DDEFAULT_DISTRIBUTED
  145. #define predefined_MinProc         1
  146. #define predefined_StaticArraySize 25000
  147. #define predefined_split_flag      0
  148.  
  149. #define predefined_PHOME "/usr1/ftacnikj/adaptor1.1"
  150.  
  151. #define PHOME_envvar     "PHOME"
  152.  
  153.           /*************************************************
  154.           *                                                *
  155.           *  Variables for makefiles.c so that adapt       *
  156.           *  can adapt target with same arguments          *
  157.           *                                                *
  158.           *  filename: name of the full source file        *
  159.           *                                                *
  160.           *  fad_argv, fad_argc: command line arguments    *
  161.           *                                                *
  162.           *************************************************/
  163.  
  164. extern char ** fad_argv;
  165. extern int     fad_argc;
  166. extern char  * filename;
  167. extern int     interactive;
  168.  
  169. extern int StaticArraySize;
  170.  
  171. #define unparse_file "unparse.f"
  172.  
  173. /* internal compiler sizes */
  174.  
  175. #define MAXID_LENGTH    50
  176. #define MAX_DIMENSIONS   4
  177.  
  178. extern char last_message [160];   /* last error/hints message  */
  179. extern char PHOME [160];          /* home directory of ADAPTOR */
  180.  
  181. /* internal flags used during compilation */
  182.  
  183. extern int IsHost;      /* translation of host program      */
  184. extern int IsPure;      /* current subroutine is a pure one */
  185.  
  186.